home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue68 / Property / Listing3.pas < prev   
Encoding:
Pascal/Delphi Source File  |  2001-03-06  |  144 b   |  8 lines
  1. procedure TColoredWidget.SetColor (Value: TColor);
  2. begin
  3.   if Value <> clBlack then begin
  4.     FColor := Value;
  5.     Refresh;
  6.   end;
  7. end; 
  8.